--- /dev/null
+-- MacGPSBabel.applescript
+-- MacGPSBabel
+
+-- Created by Jeremy Atherton on Sun Sep 28 2003.
+-- Last modified Saturday, January 31, 2004.
+-- Copyright (c) 2003, 2004 Jeremy Atherton. All rights reserved.
+
+-- PROPERTIES AND GLOBALS --
+property fileList : {}
+global theFiles, typeList, extList, aFile
+
+-- EVENT HANDLERS --
+
+on awake from nib theObject
+ if theObject is window "MacGPSBabel" then
+ tell window "MacGPSBabel"
+ set popList to my getFormats()
+ repeat with i in popList
+ make new menu item at the end of menu items of menu of popup button "inPop" with properties {title:i, enabled:true}
+ make new menu item at the end of menu items of menu of popup button "outPop" with properties {title:i, enabled:true}
+ end repeat
+ end tell
+ end if
+end awake from nib
+
+-- scripts to deal with opening and closing of SelectGPS window
+on will open theObject
+ if theObject is window "MacGPSBabel" then
+ set p to progress indicator 1 of theObject
+ call method "setStyle:" of p with parameter 1
+ call method "setDisplayedWhenStopped:" of p with parameters {false}
+ end if
+ if theObject is window "SelectGPS" then
+ set popList to my getSerial()
+ delete every menu item of menu of popup button "serialPop" of window "SelectGPS"
+ repeat with i in popList
+ make new menu item at the end of menu items of menu of popup button "serialPop" of window "SelectGPS" with properties {title:i, enabled:true}
+ end repeat
+ set visible of window "MacGPSBabel" to false
+ end if
+end will open
+on will close theObject
+ if theObject is window "SelectGPS" then
+ set visible of window "MacGPSBabel" to true
+ end if
+end will close
+
+-- the 'buisness' scripts, for dealing with all button clicks
+on clicked theObject
+
+ -- MAIN WINDOW - Select File button
+ if theObject is the button "selectButton" of window "MacGPSBabel" then
+ if contents of text field "inputFile" of window "MacGPSBabel" is equal to "" then
+ my selectFile()
+ return 0
+ else if the title of current menu item of popup button "inPop" of window "MacGPSBabel" = "Select Input File Type" then
+ display dialog "Please select an input file type for the previous file before adding another file" buttons {"OK"} default button 1
+ return 0
+ else if item 1 of (the last item in fileList) is not equal to (contents of text field "inputFile" of window "MacGPSBabel") then
+ set the end of fileList to {contents of text field "inputFile" of window "MacGPSBabel", contents of popup button "inPop" of window "MacGPSBabel"}
+ end if
+ my addFile()
+ end if
+
+ -- MAIN WINDOW - Clear button
+ if theObject is the button "clearButton" of window "MacGPSBabel" then
+ set contents of text field "inputFile" of window "MacGPSBabel" to ""
+ set fileList to {}
+ set title of button "selectButton" of window "MacGPSBabel" to "Select File"
+ set enabled of button "sendButton" of window "MacGPSBabel" to false
+ set key equivalent of button "selectButton" of window "MacGPSBabel" to return
+ set enabled of button "clearButton" of window "MacGPSBabel" to false
+ set the contents of popup button "inPop" of window "MacGPSBabel" to 0
+ set the contents of popup button "outPop" of window "MacGPSBabel" to 0
+ end if
+
+ -- MAIN WINDOW - Send button
+ if theObject is the button "sendButton" of window "MacGPSBabel" then
+ if state of button "GPSswitchIN" of window "MacGPSBabel" = 1 then
+ set fileList to {}
+ else if fileList is equal to {} or item 1 of (the last item in fileList) is not equal to (contents of text field "inputFile" of window "MacGPSBabel") then
+ set the end of fileList to {contents of text field "inputFile" of window "MacGPSBabel", contents of popup button "inPop" of window "MacGPSBabel"}
+ end if
+ my sendFile(fileList)
+ end if
+
+ -- MAIN WINDOW - Use GPS radio buttons
+ if theObject is the button "GPSswitchIN" of window "MacGPSBabel" then
+ my GPSSwitchIN()
+ if (state of button "GPSswitchIN" of window "MacGPSBabel" = 1) and (state of button "GPSswitchOUT" of window "MacGPSBabel" = 1) then
+ set state of button "GPSswitchOUT" of window "MacGPSBabel" to 0
+ my GPSswitchOUT()
+ end if
+ end if
+ if theObject is the button "GPSswitchOUT" of window "MacGPSBabel" then
+ my GPSswitchOUT()
+ if (state of button "GPSswitchOUT" of window "MacGPSBabel" = 1) and (state of button "GPSswitchIN" of window "MacGPSBabel" = 1) then
+ set state of button "GPSswitchIN" of window "MacGPSBabel" to 0
+ my GPSSwitchIN()
+ end if
+ end if
+
+ -- MAIN WINDOW - Filters button
+ if theObject is the button "filterButton" of window "MacGPSBabel" then
+ my showFilters()
+ end if
+
+ -- GPS Receiver Window - Continue button
+ if theObject is the button "contButton" of window "SelectGPS" then
+ if the state of button "GPSswitchIN" of window "MacGPSBabel" = 1 then
+ my downloadFile()
+ else
+ my uploadFile(fileList)
+ end if
+ end if
+
+ -- GPS Receiver Window - Cancel button
+ if theObject is the button "cancelButton" of window "SelectGPS" then
+ close window "SelectGPS"
+ end if
+
+ -- Filter Window - Distance filter check box
+ if theObject is the button "distanceFilter" of window "filterWindow" then
+ if state of button "distanceFilter" of window "filterWindow" is equal to 1 then
+ set enabled of text field "dist1" of window "filterWindow" to true
+ set editable of text field "dist1" of window "filterWindow" to true
+ set enabled of popup button "dist1Select" of window "filterWindow" to true
+ tell window "filterWindow"
+ set first responder to text field "dist1"
+ end tell
+ else
+ set enabled of text field "dist1" of window "filterWindow" to false
+ set editable of text field "dist1" of window "filterWindow" to false
+ set enabled of popup button "dist1Select" of window "filterWindow" to false
+ end if
+ end if
+
+ -- Filter Window - Radius Filter check box
+ if theObject is the button "radiusFilter" of window "filterWindow" then
+ if state of button "radiusFilter" of window "filterWindow" is equal to 1 then
+ set enabled of text field "dist2" of window "filterWindow" to true
+ set editable of text field "dist2" of window "filterWindow" to true
+ set enabled of popup button "dist2Select" of window "filterWindow" to true
+ set enabled of popup button "nsSelect" of window "filterWindow" to true
+ set enabled of popup button "ewSelect" of window "filterWindow" to true
+ set enabled of text field "nDeg" of window "filterWindow" to true
+ set editable of text field "nDeg" of window "filterWindow" to true
+ set enabled of text field "nMin" of window "filterWindow" to true
+ set editable of text field "nMin" of window "filterWindow" to true
+ set enabled of text field "wDeg" of window "filterWindow" to true
+ set editable of text field "wDeg" of window "filterWindow" to true
+ set enabled of text field "wMin" of window "filterWindow" to true
+ set editable of text field "wMin" of window "filterWindow" to true
+ tell window "filterWindow"
+ set first responder to text field "dist2"
+ end tell
+ else
+ set enabled of text field "dist2" of window "filterWindow" to false
+ set editable of text field "dist2" of window "filterWindow" to false
+ set enabled of popup button "dist2Select" of window "filterWindow" to false
+ set enabled of popup button "nsSelect" of window "filterWindow" to false
+ set enabled of popup button "ewSelect" of window "filterWindow" to false
+ set enabled of text field "nDeg" of window "filterWindow" to false
+ set editable of text field "nDeg" of window "filterWindow" to false
+ set enabled of text field "nMin" of window "filterWindow" to false
+ set editable of text field "nMin" of window "filterWindow" to false
+ set enabled of text field "wDeg" of window "filterWindow" to false
+ set editable of text field "wDeg" of window "filterWindow" to false
+ set enabled of text field "wMin" of window "filterWindow" to false
+ set editable of text field "wMin" of window "filterWindow" to false
+ end if
+ end if
+
+ -- Filter Window - Arc filter check box
+ if theObject is the button "arcSwitch" of window "filterWindow" then
+ if state of button "arcSwitch" of window "filterWindow" is equal to 1 then
+ set fFile to choose file with prompt "Select an arc filter file"
+ set contents of text field "arcFile" of window "filterWindow" to POSIX path of fFile as string
+ set enabled of text field "arcDist" of window "filterWindow" to true
+ set editable of text field "arcDist" of window "filterWindow" to true
+ set enabled of popup button "arcUnits" of window "filterWindow" to true
+ else
+ set enabled of text field "arcDist" of window "filterWindow" to false
+ set editable of text field "arcDist" of window "filterWindow" to false
+ set enabled of popup button "arcUnits" of window "filterWindow" to false
+ set contents of text field "arcFile" of window "filterWindow" to ""
+ set contents of text field "ardDist" of window "filterWindow" to ""
+ end if
+ end if
+
+ -- Filter Window - polygon filter check box
+ if theObject is the button "polySwitch" of window "filterWindow" then
+ if state of button "polySwitch" of window "filterWindow" is equal to 1 then
+ set pFile to choose file with prompt "Select a polygon filter file"
+ set contents of text field "polyFile" of window "filterWindow" to POSIX path of pFile as string
+ else
+ set contents of text field "polyFile" of window "filterWindow" to ""
+ end if
+ end if
+end clicked
+
+-- MY HANDLERS --
+
+
+-- SCRIPTS FOR CHOOSING THE INPUT FILE
+-- select the first file
+on selectFile()
+ -- Choose a file (using the open file dialog box)
+ set aFile to choose file with prompt "Select an input file"
+ set contents of text field "inputFile" of window "MacGPSBabel" to aFile
+ if contents of text field "inputFile" of window "MacGPSBabel" is not equal to "" then
+ set key equivalent of button "selectButton" of window "MacGPSBabel" to ""
+ set enabled of button "sendButton" of window "MacGPSBabel" to true
+ set enabled of button "clearButton" of window "MacGPSBabel" to true
+ set the title of button "selectButton" of window "MacGPSBabel" to "Add File"
+ end if
+end selectFile
+-- add another file
+on addFile()
+ -- Choose a file (using the open file dialog box)
+ set aFile to choose file with prompt "Select another input file"
+ set contents of text field "inputFile" of window "MacGPSBabel" to aFile
+ set the contents of popup button "inPop" of window "MacGPSBabel" to 0
+end addFile
+------------------------------------------------------------------------
+
+-- SCRIPTS FOR CONTROLLING THE CONVERSION
+-- work out which kind of conversion to do
+on sendFile(fileList)
+ -- check for options selected
+ if state of button "GPSswitchIN" of window "MacGPSBabel" = 1 then
+ my GPSSend()
+ return 0
+ else if state of button "GPSswitchOUT" of window "MacGPSBabel" = 1 then
+ set visible of window "SelectGPS" to true
+ set state of button "trackSwitch" of window "SelectGPS" to 0
+ set enabled of button "trackSwitch" of window "SelectGPS" to false
+ return 0
+ else if the title of current menu item of popup button "inPop" of window "MacGPSBabel" = "Select Input File Type" then
+ display dialog "Please select an input file type" buttons {"OK"} default button 1
+ return 0
+ else if the title of current menu item of popup button "outPop" of window "MacGPSBabel" = "Select Output File Type" then
+ display dialog "Please select an output file type" buttons {"OK"} default button 1
+ return 0
+ end if
+
+ -- select where to save the file
+ my convertFile(fileList)
+end sendFile
+
+-- this script handles conversions between file types
+on convertFile(fileList)
+ -- create string for filters
+ if visible of window "filterWindow" is true then
+ set filterText to my applyFilters()
+ else
+ set filterText to ""
+ end if
+
+ -- create string for input files
+ set fileText to ""
+ repeat with theItem in fileList
+ set currentInIndex to item 2 of theItem
+ set inType to item (currentInIndex) of typeList
+ set inputFile to quoted form of item 1 of theItem
+ set fileText to fileText & " -i " & inType & " -f " & inputFile
+ end repeat
+
+ -- create strings for output file
+ set currentOutIndex to contents of popup button "outPop" of window "MacGPSBabel"
+ set outType to item (currentOutIndex) of typeList
+ set OutExt to item (currentOutIndex) of extList
+ -- set outPath to directory of aFile
+ tell save panel
+ set title to "Save Output As"
+ set prompt to "Save"
+ set treat packages as directories to 0
+ end tell
+ set oldDelimiters to AppleScript's text item delimiters
+ set AppleScript's text item delimiters to "/"
+ set TempFileName to last text item of inputFile
+ set AppleScript's text item delimiters to "."
+ set TempFileName to the first text item of TempFileName
+ set AppleScript's text item delimiters to oldDelimiters
+ if OutExt is not equal to "" then
+ set TempFileName to TempFileName & "." & OutExt
+ end if
+ set theResult to display save panel in directory aFile with file name TempFileName
+ if theResult is 1 then
+ set outputFile to (path name of save panel) as string
+ else
+ set outputFile to ""
+ display dialog "conversion cancelled" buttons {"OK"} default button 1
+ return 0
+ end if
+ feedbackBusy(true)
+ -- do the script
+ set thePath to POSIX path of (path to me) as string
+ try
+ set scriptOut to (do shell script quoted form of thePath & "Contents/Resources/gpsbabel" & fileText & " " & filterText & "-o " & outType & " -F " & quoted form of outputFile) as string
+ feedbackBusy(false)
+ display dialog "Conversion Complete" & return & scriptOut buttons {"OK"} default button 1
+ on error
+ feedbackBusy(false)
+ display dialog "Conversion Failed" & return & scriptOut buttons {"OK"} default button 1
+ end try
+end convertFile
+
+-- GPS RECEIVER HANDLERS
+-- open the GPS receiver window
+on GPSSend()
+ if the title of current menu item of popup button "outPop" of window "MacGPSBabel" = "Select Output File Type" then
+ display dialog "Please select an output file type" buttons {"OK"} default button 1
+ else
+ set visible of window "SelectGPS" to true
+ set enabled of button "trackSwitch" of window "selectGPS" to true
+ end if
+end GPSSend
+-- find the serial ports
+on getSerial()
+ set myList to {}
+ set theScript to "cd /dev; ls | grep cu..."
+ set scriptOut to (do shell script theScript) as string
+ set theCount to count of words in scriptOut
+ set i to 0
+ repeat until i = theCount
+ set i to i + 1
+ set defaultDelimiters to AppleScript's text item delimiters
+ set AppleScript's text item delimiters to {"."}
+ set theWords to the count of text items in word i of scriptOut
+ set z to 2
+ set the end of myList to (text items z thru theWords of word i of scriptOut) as string
+ set AppleScript's text item delimiters to defaultDelimiters
+ end repeat
+ set AppleScript's text item delimiters to {" "}
+ return myList
+end getSerial
+-- deal with uploading files to GPS receiver
+on uploadFile(fileList)
+ -- create string for filters
+ if visible of window "filterWindow" is true then
+ set filterText to my applyFilters()
+ else
+ set filterText to ""
+ end if
+
+ -- create string for input files
+ set fileText to ""
+ repeat with theItem in fileList
+ set currentInIndex to item 2 of theItem
+ set inType to item (currentInIndex) of typeList
+ set inputFile to quoted form of item 1 of theItem
+ set fileText to fileText & " -i " & inType & " -f " & inputFile
+ end repeat
+
+ -- create string for GPS unit
+ if the title of popup button "gpsPop" of window "selectGPS" is equal to "Garmin" then
+ set gpsText to " garmin "
+ else
+ set gpsText to " magellan "
+ end if
+
+ -- run the script
+ set thePath to POSIX path of (path to me) as string
+ set visible of window "SelectGPS" to false
+ set visible of window "MacGPSBabel" to true
+ feedbackBusy(true)
+ set serialText to "-F /dev/tty." & (the title of popup button "serialPop" of window "selectGPS")
+ do shell script (quoted form of thePath & "Contents/Resources/gpsbabel" & fileText & " " & filterText & "-o " & gpsText & serialText)
+ feedbackBusy(false)
+ display dialog "Upload Complete" buttons {"OK"} default button 1
+end uploadFile
+-- deal with downloading files from GPS receiver
+on downloadFile()
+ set outName to "Waypoints."
+ if visible of window "filterWindow" is true then
+ set filterText to my applyFilters()
+ else
+ set filterText to ""
+ end if
+ if state of button "trackSwitch" of window "selectGPS" is equal to 1 then
+ set trackText to " -t"
+ set outName to "Tracks."
+ else
+ set trackText to ""
+ end if
+ set thePath to POSIX path of (path to me) as string
+
+ tell save panel
+ set title to "Save Output As"
+ set prompt to "Save"
+ set treat packages as directories to 0
+ end tell
+
+ set currentOutIndex to contents of popup button "outPop" of window "MacGPSBabel"
+ set outType to item (currentOutIndex) of typeList
+ set OutExt to item (currentOutIndex) of extList
+ set TempFileName to outName & OutExt
+ set theResult to display save panel in directory "~/Desktop" with file name TempFileName
+ if theResult is 1 then
+ set outputFile to (path name of save panel) as string
+ if the title of popup button "gpsPop" of window "selectGPS" is equal to "Garmin" then
+ set gpsText to " garmin "
+ else
+ set gpsText to " magellan "
+ end if
+ set serialText to "/dev/tty." & (the title of popup button "serialPop" of window "selectGPS")
+ set visible of window "SelectGPS" to false
+ set visible of window "MacGPSBabel" to true
+ feedbackBusy(true)
+ do shell script (quoted form of thePath & "Contents/Resources/gpsbabel" & trackText & " -i" & gpsText & "-f " & serialText & " " & filterText & " -o " & outType & " -F " & quoted form of outputFile)
+ feedbackBusy(false)
+ display dialog "Download from GPS is complete" buttons {"OK"} default button 1
+ else
+ set outputFile to ""
+ end if
+end downloadFile
+
+-- FILTERING HANDLERS
+-- show filters window
+on showFilters()
+ if visible of window "filterWindow" is false then
+ set visible of window "filterWindow" to true
+ set the title of button "filterButton" of window "MacGPSBabel" to "Remove Filters"
+ else
+ set visible of window "filterWindow" to false
+ set the title of button "filterButton" of window "MacGPSBabel" to "Setup Filters"
+ end if
+end showFilters
+-- create the filter code
+on applyFilters()
+ set filterText to ""
+ if state of button "distanceFilter" of window "filterWindow" is equal to 1 then
+ set distanceText to "-x position"
+ if contents of text field "dist1" of window "filterWindow" is not equal to "" then
+ set distanceText to distanceText & ",distance=" & (contents of text field "dist1" of window "filterWindow")
+ if title of popup button "dist1Select" of window "filterWindow" is equal to "Feet" then
+ set distanceText to distanceText & "f "
+ else
+ set distanceText to distanceText & "m "
+ end if
+ end if
+ else
+ set distanceText to ""
+ end if
+ if state of button "radiusFilter" of window "filterWindow" is equal to 1 then
+ set radiusText to "-x radius"
+ if contents of text field "dist2" of window "filterWindow" is not equal to "" then
+ set radiusText to radiusText & ",distance=" & (contents of text field "dist2" of window "filterWindow")
+ if title of popup button "dist2Select" of window "filterWindow" is equal to "Miles" then
+ set radiusText to radiusText & "M"
+ else
+ set radiusText to radiusText & "K"
+ end if
+ if the title of current menu item of popup button "nsSelect" of window "filterWindow" = "N" then
+ set lat to 1
+ else
+ set lat to -1
+ end if
+ if the title of current menu item of popup button "ewSelect" of window "filterWindow" = "W" then
+ set lon to -1
+ else
+ set lon to 1
+ end if
+ set latDeg to lat * (((the contents of text field "nDeg" of window "filterWindow") as number) + (((the contents of text field "nMin" of window "filterWindow") as number) / 60)) as string
+ set lonDeg to lon * ((the contents of text field "wDeg" of window "filterWindow") + ((the contents of text field "wMin" of window "filterWindow") / 60)) as string
+ set radiusText to radiusText & ",lat=" & latDeg & ",lon=" & lonDeg & " "
+ end if
+ else
+ set radiusText to ""
+ end if
+ if state of button "locationFilter" of window "filterWindow" is equal to 1 then
+ set duplicateText to "-x duplicate,location"
+ if state of button "shortFilter" of window "filterWindow" is not equal to 1 then
+ set duplicateText to duplicateText & " "
+ end if
+ else
+ set duplicateText to ""
+ end if
+ if state of button "shortFilter" of window "filterWindow" is equal to 1 then
+ if duplicateText is not equal to "" then
+ set duplicateText to duplicateText & ",shortname "
+ else
+ set duplicateText to "-x duplicate,shortname "
+ end if
+ end if
+ if state of button "arcSwitch" of window "filterWindow" is equal to 1 then
+ if (contents of text field "arcDist" of window "filterWindow" is not equal to "") then
+ if title of popup button "arcUnits" of window "filterWindow" is equal to "Miles" then
+ set aUnit to "M"
+ else
+ set aUnit to "K"
+ end if
+ set arcDistance to (contents of text field "arcDist" of window "filterWindow") & aUnit
+ set arcText to "-x arc,file=\"" & (contents of text field "arcFile" of window "filterWindow") & "\",distance=" & arcDistance & " "
+ else
+ display dialog "Please input a distance for the arc filter" buttons ["OK"] default button 1
+ set arcText to ""
+ break
+ end if
+ else
+ set arcText to ""
+ end if
+ if state of button "polySwitch" of window "filterWindow" is equal to 1 then
+ set polyText to "-x polygon,file=\"" & (contents of text field "arcFile" of window "filterWindow") & "\" "
+ else
+ set polyText to ""
+ end if
+ set filterText to distanceText & radiusText & duplicateText & arcText & polyText
+ return filterText
+end applyFilters
+
+-- handler (called at startup) to check with GPS Babel which file formats it can handle. Return the result as a list
+on getFormats()
+ set myList to {}
+ set typeList to {}
+ set extList to {}
+ set thePath to POSIX path of (path to me) as string
+ set scriptOut to (do shell script quoted form of thePath & "Contents/Resources/gpsbabel -^") as string
+ set theCount to count of paragraphs in scriptOut
+ set i to 1
+ set defaultDelimiters to AppleScript's text item delimiters
+ set AppleScript's text item delimiters to tab
+ repeat until i = theCount + 1
+ set theLine to paragraph i of scriptOut
+ if (first text item of theLine) is not equal to "xcsv" and (first text item of theLine) is not equal to "magellan" and (first text item of theLine) is not equal to "garmin" then
+ set the end of typeList to the first text item of theLine
+ set the end of extList to the second text item of theLine
+ set the end of myList to the last text item of theLine
+ end if
+ set i to i + 1
+ end repeat
+ set AppleScript's text item delimiters to defaultDelimiters
+ return myList
+end getFormats
+
+-- handlers to deal with the GPS receiver checkboxes
+on GPSSwitchIN()
+ if state of button "GPSswitchIN" of window "MacGPSBabel" = 1 then
+ set enabled of button "selectButton" of window "MacGPSBabel" to false
+ set enabled of button "clearButton" of window "MacGPSBabel" to false
+ set enabled of button "sendButton" of window "MacGPSBabel" to true
+ set contents of text field "inputFile" of window "MacGPSBabel" to ""
+ set enabled of text field "inputFile" of window "MacGPSBabel" to false
+ set enabled of popup button "inPop" of window "MacGPSBabel" to false
+ set title of button "sendButton" of window "MacGPSBabel" to "Download..."
+ else
+ set enabled of button "selectButton" of window "MacGPSBabel" to true
+ set enabled of button "sendButton" of window "MacGPSBabel" to false
+ set enabled of text field "inputFile" of window "MacGPSBabel" to true
+ set enabled of popup button "inPop" of window "MacGPSBabel" to true
+ end if
+ if state of button "GPSswitchIN" of window "MacGPSBabel" = 0 and state of button "GPSswitchOUT" of window "MacGPSBabel" = 0 then
+ set title of button "sendButton" of window "MacGPSBabel" to "Convert"
+ end if
+end GPSSwitchIN
+on GPSswitchOUT()
+ if state of button "GPSswitchOUT" of window "MacGPSBabel" = 1 then
+ set enabled of popup button "outPop" of window "MacGPSBabel" to false
+ set title of button "sendButton" of window "MacGPSBabel" to "Upload..."
+ else
+ set enabled of popup button "outPop" of window "MacGPSBabel" to true
+ end if
+ if state of button "GPSswitchIN" of window "MacGPSBabel" = 0 and state of button "GPSswitchOUT" of window "MacGPSBabel" = 0 then
+ set title of button "sendButton" of window "MacGPSBabel" to "Convert"
+ end if
+end GPSswitchOUT
+
+on feedbackBusy(yn)
+ tell window "MacGPSBabel"
+ if yn then
+ start progress indicator 1
+ else
+ stop progress indicator 1
+ end if
+ end tell
+end feedbackBusy
\ No newline at end of file
projects / gpsbabel.git / commitdiff